home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / amigancp19.lha / AmigaNCP19 / Install-AmigaNCP < prev    next >
Text File  |  1996-10-27  |  6KB  |  254 lines
  1. ; 
  2. ; Installer-Script for AmigaNCP
  3. ;
  4. ; $VER: AmigaNCP-Install 1.1 (26.10.96)
  5. ;
  6.  
  7. ;
  8. ; Strings
  9. ; 
  10.  
  11. (set #startup-msg
  12. (cat    "\nWelcome to AmigaNCP Release 1.9\n===============================\n\n"
  13.         "© 1993-96 Oliver Wagner\n<owagner@vapor.com>\nAll Rights Reserved\n\n"
  14.         "Internet support:\n"
  15.         "http://www.vapor.com/support/amigancp/\n"
  16.         "ftp: ftp.vapor.com, /support/amigancp/"
  17. ))
  18.  
  19. (set #install-msg
  20. (cat    "Installing AmigaNCP Release 1.9\n\n"
  21.         "Where do you want AmigaNCP be installed?\nA drawer named"
  22.         "'AmigaNCP' will be automatically created."
  23. ))
  24.  
  25. (set #copylib-msg "Installing amigancp.library")
  26. (set #copylib-where "Please select a directory for \"amigancp.library\".")
  27. (set #copycat-msg "Installing catalogs")
  28. (set #copycat-where "Please select a directory for the language catalogs.")
  29. (set #copyserv-msg "Installing NCP Services")
  30. (set #copydoc-msg "Installing Docs")
  31. (set #copytools-msg "Installing Tools")
  32. (set #copyreg-msg "Installing Registration Utility")
  33. (set #copyicons-msg "Installing Default Icon Tree")
  34. (set #copysub-msg "Installing Submission Material")
  35.  
  36. (set #wantdev-msg 
  37. (cat    "Do you want to install the Developer\n"
  38.         "Documentation and associated support files?\n\n"
  39.         "These files are needed only when you want\n"
  40.         "to develop applications using \"amigancp.library\"\n"
  41.         "or want to do a catalog translation to another\n"
  42.         "language.\n"
  43. ))
  44. (set #copydev-msg "Copying Developer files")
  45. (set #whats "What Psion computer do you own?\n\nThis choice will determine the baud rate used\nto access the serial port")
  46. (set #need20 "AmigaNCP requires OS 2.04 or better!" )
  47.  
  48. (set #setpatchold "WARNING!\n========\nYour SetPatch Version %ld.%ld is TOO OLD!\n\nYou MUST at least have version 40.16 installed\nfor AmigaNCP to work properly, otherwise you\nwill experience crashes and memory losses!\n\nThe current version of SetPatch is included on the AmigaNCP registration disk or available from the Vapor support sites.")
  49.  
  50. ;
  51. ; Determine if running on an 68020++
  52. ;
  53. (procedure checkv20
  54.     (if (>= (database "cpu") 68020 )
  55.         (set v20-flag 1)
  56.     )
  57. )
  58.  
  59. ;
  60. ; Check for SetPatch 40.16 or higher
  61. ;
  62.  
  63. (procedure verifysetpatch
  64. (
  65.     (set vernum (getversion "C:SetPatch"))
  66.     (set ver (/ vernum 65536 ) )
  67.     (set rev (- vernum (* ver 65536 ) ) )
  68.     (if ( OR ( (> ver 40) (AND ( = ver 40 ) ( >= rev 16 ) ) ) )
  69.         (set setpatchok 1)
  70.         (message (#setpatchold ver rev ) )
  71.     )
  72. ))
  73. ;
  74. ;
  75. ; GO!
  76. ;
  77. ;
  78. (set vernum (getversion "LIBS:version.library"))
  79. (set ver (/ vernum 65536 ) )
  80. (set rev (- vernum (* ver 65536 ) ) )
  81.  
  82. (if (< ver 37 )
  83. (
  84.     (abort #need20)
  85. ))
  86. (set olduserlevel (user 1))
  87. (message #startup-msg)
  88. (user olduserlevel)
  89. (welcome)
  90. (set default-dest
  91.     (askdir
  92.         (prompt #install-msg)
  93.         (help @askdir-help)
  94.         (default @default-dest)
  95.     )
  96. )
  97. (complete 1)
  98. (set @default-dest
  99.     (tackon default-dest "AmigaNCP")
  100. )
  101. (complete 2)
  102. (set olduserlevel (user 1))
  103. (verifysetpatch)
  104. (user olduserlevel)
  105. (complete 3)
  106. (makedir @default-dest (infos))
  107. (makedir (tackon @default-dest "Docs" ) (infos))
  108. (makedir (tackon @default-dest "Tools" ) (infos))
  109. (makedir (tackon @default-dest "Submissions" ) (infos))
  110. (makedir (tackon @default-dest "Registration" ) (infos))
  111. (makedir (tackon @default-dest "Icons" ))
  112. (complete 2)
  113. ;
  114. ; Copy lib
  115. ;
  116. (set #libname "libs/amigancp.library")
  117. (checkv20)
  118. (if v20-flag
  119. (
  120.     (set #libname "libs/amigancp.library.020")
  121. ))
  122. (copyfiles
  123.     (help @copyfiles-help)
  124.     (prompt #copylib-msg)
  125.     (confirm)
  126.     (source #libname)
  127.     (newname "amigancp.library")
  128.     (dest
  129.         (askdir
  130.             (prompt #copylib-where)
  131.             (help @askdir-help)
  132.             (default "LIBS:")
  133.         )
  134.     )
  135. )
  136. (complete 10)
  137. (if (> ver 37 )
  138. (
  139.     (copyfiles
  140.         (source "Catalogs")
  141.         (prompt #copycat-msg)
  142.         (help @copyfiles-help)
  143.         (dest "LOCALE:Catalogs")
  144.         (confirm)
  145.         (all)
  146.     )
  147. ))
  148. (complete 20)
  149. (copyfiles
  150.     (source "")
  151.     (pattern "AmigaNCP#?")
  152.     (prompt #copyserv-msg)
  153.     (help @copyfiles-help)
  154.     (confirm)
  155.     (infos)
  156.     (dest @default-dest)
  157. )
  158. (complete 34)
  159. (copyfiles
  160.     (source "Icons")
  161.     (prompt #copyicons-msg)
  162.     (help @copyfiles-help)
  163.     (dest (tackon @default-dest "Icons" ) )
  164.     (all)
  165.     (infos)
  166. )
  167. (complete 36)
  168. (copyfiles
  169.     (source "Submissions")
  170.     (prompt #copysub-msg)
  171.     (help @copyfiles-help)
  172.     (dest (tackon @default-dest "Submissions" ) )
  173.     (all)
  174.     (infos)
  175. )
  176. (complete 38)
  177. (delete (tackon @default-dest "Icons.info" ))
  178. (complete 39)
  179. (foreach "" "AmigaNCP#?"
  180.     (tooltype (
  181.         (dest (tackon @default-dest @each-name ) )
  182.         (noposition)
  183.     )
  184. ))
  185. (complete 40)
  186. (copyfiles
  187.     (source "Docs")
  188.     (prompt #copydoc-msg)
  189.     (help @copyfiles-help)
  190.     (confirm)
  191.     (infos)
  192.     (all)
  193.     (dest (tackon @default-dest "Docs" ) )
  194. )
  195. (complete 60)
  196. (copyfiles
  197.     (source "Tools")
  198.     (prompt #copytools-msg)
  199.     (help @copyfiles-help)
  200.     (confirm)
  201.     (infos)
  202.     (all)
  203.     (dest (tackon @default-dest "Tools" ) )
  204. )
  205. (complete 70)
  206. (copyfiles
  207.     (source "Registration")
  208.     (prompt #copyreg-msg)
  209.     (help @copyfiles-help)
  210.     (confirm)
  211.     (infos)
  212.     (all)
  213.     (dest (tackon @default-dest "Registration" ) )
  214. )
  215. (complete 80)
  216. (if (askbool
  217.         (prompt #wantdev-msg)
  218.         (help #wantdev-msg)
  219.         (default 1)
  220.     )
  221. (
  222.     (set devdir (tackon @default-dest "Developer"))
  223.     (makedir devdir (infos))
  224.     (copyfiles
  225.         (source "Developer")
  226.         (prompt #copydev-msg)
  227.         (help @copyfiles-help)
  228.         (dest devdir)
  229.         (confirm)
  230.         (infos)
  231.         (all)
  232.     )
  233. ))
  234. (complete 90)
  235. (if ( = (exists "ENV:NCP.config") 0 )
  236. (
  237.     (set s3amode (askchoice
  238.         (choices "Psion S3 (or HC) - 9600 baud" "Psion S3a (or MC) - 19200 baud" "Psion S3c and slow Amiga - 38400 baud" "Psion S3c - 57600 baud" )
  239.         (default 0 )
  240.         (prompt #whats)
  241.         (help @askchoice-help)
  242.     ))
  243.     (set baud 9600)
  244.     (if ( = 1 s3amode ) (set baud 19200))
  245.     (if ( = 2 s3amode ) (set baud 38400))
  246.     (if ( = 3 s3amode ) (set baud 57600))
  247.     (textfile 
  248.         (dest "ENV:NCP.config")
  249.         (append ( "DEVICE=serial.device UNIT=0 BAUD=%ld" baud ) )
  250.     )
  251.     (run "copy ENV:NCP.config ENVARC:NCP.config")
  252. ))
  253. (complete 100)
  254.